home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / MPW Interfaces & Libraries / PInterfaces / Start.p < prev    next >
Encoding:
Text File  |  1992-01-29  |  1.6 KB  |  85 lines  |  [TEXT/MPS ]
  1.  
  2. {
  3. Created: Monday, September 16, 1991 at 1:09 AM
  4.  Start.p
  5.  Pascal Interface to the Macintosh Libraries
  6.  
  7.   Copyright Apple Computer, Inc. 1987-1991
  8.   All rights reserved
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT Start;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingStart}
  22. {$SETC UsingStart := 1}
  23.  
  24. {$I+}
  25. {$SETC StartIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingTypes}
  28. {$I $$Shell(PInterfaces)Types.p}
  29. {$ENDC}
  30. {$SETC UsingIncludes := StartIncludes}
  31.  
  32. TYPE
  33. DefStartType = (slotDev,scsiDev);
  34.  
  35.  
  36. DefStartPtr = ^DefStartRec;
  37. DefStartRec = RECORD
  38.  CASE DefStartType OF
  39.    slotDev:
  40.   (sdExtDevID: SignedByte;
  41.   sdPartition: SignedByte;
  42.   sdSlotNum: SignedByte;
  43.   sdSRsrcID: SignedByte);
  44.    scsiDev:
  45.   (sdReserved1: SignedByte;
  46.   sdReserved2: SignedByte;
  47.   sdRefNum: INTEGER);
  48.  END;
  49.  
  50. DefVideoPtr = ^DefVideoRec;
  51. DefVideoRec = RECORD
  52.  sdSlot: SignedByte;
  53.  sdsResource: SignedByte;
  54.  END;
  55.  
  56. DefOSPtr = ^DefOSRec;
  57. DefOSRec = RECORD
  58.  sdReserved: SignedByte;
  59.  sdOSType: SignedByte;
  60.  END;
  61.  
  62.  
  63. PROCEDURE GetDefaultStartup(paramBlock: DefStartPtr);
  64.  INLINE $205F,$A07D;
  65. PROCEDURE SetDefaultStartup(paramBlock: DefStartPtr);
  66.  INLINE $205F,$A07E;
  67. PROCEDURE GetVideoDefault(paramBlock: DefVideoPtr);
  68.  INLINE $205F,$A080;
  69. PROCEDURE SetVideoDefault(paramBlock: DefVideoPtr);
  70.  INLINE $205F,$A081;
  71. PROCEDURE GetOSDefault(paramBlock: DefOSPtr);
  72.  INLINE $205F,$A084;
  73. PROCEDURE SetOSDefault(paramBlock: DefOSPtr);
  74.  INLINE $205F,$A083;
  75. PROCEDURE SetTimeout(count: INTEGER);
  76. PROCEDURE GetTimeout(VAR count: INTEGER);
  77.  
  78.  
  79. {$ENDC} { UsingStart }
  80.  
  81. {$IFC NOT UsingIncludes}
  82.  END.
  83. {$ENDC}
  84.  
  85.